home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / wordproc / hshell1.arj / CAI.HYP < prev    next >
Text File  |  1993-12-29  |  7KB  |  390 lines
  1. .REMARK
  2. Computer Aided Instruction demo
  3.  
  4. This demonstrates the questioning part of CAI only.
  5. Normally there would be instructional frames followed
  6. by questions, with return to the instructions if answers
  7. are incorrect.
  8.  
  9. There are many other ways of handling CAI, including use of
  10. selection from graphic images, selection of answer using mouse,
  11. and rapid progress routes when scoring is high.
  12. .SCRIPT RESET
  13. VT0
  14. VC0
  15. VW0
  16. VF4;Y Number of frames
  17. VO0
  18. VQ4
  19. Va--------;Vb--------;Vc--------
  20. .SCRIPT SETUP
  21. -- set variable S to semicolon for next line
  22. VS&C59
  23. -- line for bottom of display
  24. VN~g        ~APress space for next question~PZL1x$SF+~K ~E
  25. .REMARK
  26. This script allows 5 seconds to choose an answer
  27. then times out. It tallies timeouts, correct and wrong answers.
  28. It then waits for 5 seconds or key press before next question.
  29. Note .5 second catch for key presses just after the timeout.
  30. .SCRIPT Choose
  31. -- input character to R, with timeout, branch if timeout
  32. VR&G500;jbTIMEOUT
  33. -- if key pressed not same as parameter to script - wrong
  34. vR$\;jnWRONG
  35. -- load response - ~g is for line break
  36. VMCORRECT - Well done~g
  37. -- increment count of correct answers
  38. VC=C+1
  39. JNEXT
  40. -- here if timeout
  41. LTIMEOUT
  42. VMOut of time
  43. VT=T+1
  44. JPMESS
  45. -- here if wrong
  46. LWRONG
  47. VW=W+1
  48. VMWrong
  49. LPMESS
  50. VM$M - the answer was number $\~g
  51. LNEXT
  52. -- Toggle local flag for conditional display
  53. ZL1
  54. .SCRIPT Timing
  55. Y&H
  56. -- just get a key press
  57. VR&K
  58. -- calculate overall time
  59. VT&J;VO=O+T
  60. -- test key pressed
  61. vR$\;jnWRONG
  62. -- as above
  63. VMCORRECT - Well done~g
  64. VC=C+1
  65. JNEXT
  66. LWRONG
  67. VW=W+1
  68. VMWrong
  69. LPMESS
  70. VM$M - the answer was number $\~g
  71. LNEXT
  72. ZL1
  73. .SCRIPT check
  74. -- position mouse at col 20 line 18
  75. ZX20;ZY18
  76. -- test variable a = went, if equal branch to OK1
  77. vawent;jeOK1
  78. -- popup display of correct answer
  79. P$a is incorrect
  80. -- set variable
  81. Vawent
  82. LOK1
  83. -- test b = bought, etc...
  84. vbbought;jeOK2
  85. P$b is incorrect
  86. Vbbought
  87. LOK2
  88. vcprice;jeOK3
  89. P$c is incorrect
  90. Vcprice
  91. LOK3
  92. y
  93. .
  94. .FRAME MENU
  95. .TITLE Select type
  96.  
  97. [1]    1.    ~FMultiple choice with timeout~PFTimeout~K1~E
  98.  
  99. [2]    2.    ~FMultiple choice with timing~PFTiming~K2~E
  100.  
  101. [3]    3.    ~FGap filling~K3~E
  102.  
  103. [4]    4.    ~FChoice in line~K4~E
  104.  
  105.  
  106. [q]    q.    ~FQuit~PQ~Kq~E
  107.  
  108. ~A~PSRESET~E~Q
  109. .FRAME Timeout
  110. .TITLE Multiple choice with timeout
  111.  
  112.     This set of frames illustrates the multiple choice
  113.     form of questioning, with timeouts on the response.
  114.     5 seconds are given to answer each question.
  115.  
  116.     Scores are tallied for:-
  117.  
  118.     Correct answers
  119.     Wrong answers
  120.     Timeouts
  121.  
  122.     And a percentage and rating are given
  123.  
  124. [ ]    ~APress space to start~PF+~K ~E
  125. .REMARK
  126. each question has hidden text for when response incorrect
  127. and immediate action which runs script 'choose' with correct selection
  128. .FRAME Question 1
  129. .TITLE Hard
  130.  
  131.     What is an ECHIDNA
  132.  
  133.     1. A kind of rare plant
  134.  
  135.     2. A cast iron fireplace
  136.  
  137.     3. A part of the body
  138.  
  139.     4. A relative of the duck billed platypus
  140.  
  141. ~h1    $M
  142. ~h1    An Echidna, or spiny ant eater, is an egg laying mammal
  143. ~h1    related to the duck-billed platypus, or Ornitherinchus
  144. ~h1    $N
  145. ~A~PSchoose(4)~E~Q
  146. .
  147. .FRAME Question 2
  148. .TITLE Easy
  149.  
  150.     How many buns in a bakers dozen
  151.  
  152.     1. 11
  153.  
  154.     2. 12
  155.  
  156.     3. 13
  157.  
  158.     4. 24
  159.  
  160. ~h1    $M
  161. ~h1    A bakers dozen is named after the old practise of
  162. ~h1    bakers giving an extra bun with each dozen.
  163. ~h1    $N
  164. ~A~PSchoose(3)~E~Q
  165. .
  166. .FRAME Question 3
  167. .TITLE Hard
  168.  
  169.     Where is Egypt
  170.  
  171.     1. Near Bradford
  172.  
  173.     2. South of Kensington
  174.  
  175.     3. In Mid Glamorgan
  176.  
  177.     4. Just outside Edinburgh
  178.  
  179. ~h1    $M
  180. ~h1    There are a number of small villages to the west of
  181. ~h1    Bradford in West Yorkshire with names such as Egypt
  182. ~h1    and Jericho. At Jericho there is a cutting with high
  183. ~h1    walls, known as 'the walls of Jericho'.
  184. ~h1    $N
  185. ~A~PSchoose(1)~E~Q
  186. .
  187. .FRAME Question 4
  188. .TITLE Hard
  189.  
  190.     What does the &K function do
  191.  
  192.     1. Return a key mapping
  193.  
  194.     2. Return the key pressed at a prompt
  195.  
  196.     3. Kill the program
  197.  
  198.     4. Return the memory available as K bytes
  199.  
  200. ~h1    $M
  201. ~h1    The &K function issues a popup prompt, and
  202. ~h1    returns the character for the key pressed in response.
  203. ~h1    $N
  204. ~A~PSchoose(2)~E~Q
  205. .
  206. .FRAME Report 1
  207. .TITLE How well did you do
  208.  
  209.     Number of questions - $F
  210.  
  211.     Number of correct answers - $C
  212.  
  213.     Number of incorrect answers - $W
  214.  
  215.     Number of timeouts - $T
  216. ~A~Psscore~E~Q
  217. [ ]    ~APress space to return to main menu~PFMENU~K ~E
  218. .
  219. .SCRIPT score
  220. -- calculate score
  221. VP=C*100/F
  222. -- grade the score
  223. vP25;jlBAD
  224. vP50;jlAVERAGE
  225. vP75;jlGOOD
  226. VGBrilliant
  227. JDISP
  228. LBAD
  229. VGPretty aweful
  230. JDISP
  231. LAVERAGE
  232. VGAverage
  233. JDISP
  234. LGOOD
  235. VGVery good
  236. -- common display routine
  237. LDISP
  238. pYou scored $P percent correct - That's $G
  239. .
  240. .FRAME Timing
  241. .TITLE Multiple choice with timing
  242.  
  243.     This example shows how multiple choice with timing
  244.     of responses can be handled.
  245.  
  246.  
  247. [ ]    ~APress space to start~PF+~K ~E
  248. .
  249. .REMARK
  250. each question has hidden text for when response incorrect
  251. and immediate action which runs script 'choose' with correct selection
  252. .FRAME Q 1
  253. .TITLE Example
  254.  
  255.     What is 2 times 3 plus 7
  256.  
  257.     1.    13
  258.  
  259.     2.    20
  260.  
  261.     3.    17
  262.  
  263. ~h1    $M
  264. ~h1    3 times 2 = 6, plus 7 = 13
  265. ~h1    $N
  266. ~A~PSTiming(1)~E~Q
  267. .
  268. .FRAME Q 2
  269. .TITLE Example
  270.  
  271.     What is 7 times 11 plus 4
  272.  
  273.     1.    79
  274.  
  275.     2.    81
  276.  
  277.     3.    75
  278.  
  279. ~h1    $M
  280. ~h1    7 times 11 = 77, plus 4 = 81
  281. ~h1    $N
  282. ~A~PSTiming(2)~E~Q
  283. .
  284. .FRAME Q 3
  285. .TITLE Example
  286.  
  287.     What is 9 times 9 plus 9
  288.  
  289.     1.    99
  290.  
  291.     2.    87
  292.  
  293.     3.    90
  294.  
  295. ~h1    $M
  296. ~h1    9 times 9 = 81, plus 9 = 90
  297. ~h1    $N
  298. ~A~PSTiming(3)~E~Q
  299. .
  300. .FRAME Q 4
  301. .TITLE Example
  302.  
  303.     What is 11 times 11 plus 7
  304.  
  305.     1.    127
  306.  
  307.     2.    128
  308.  
  309.     3.    129
  310.  
  311. ~h1    $M
  312. ~h1    11 times 11 = 121, plus 7 = 128
  313. ~h1    $N
  314. ~A~PSTiming(2)~E~Q
  315. .
  316. .FRAME Report 2
  317. .TITLE Timing report
  318.  
  319.     Number of questions    $Q
  320.  
  321.     Number correct        $C
  322.  
  323.     Number wrong        $W
  324.  
  325.     Average response time    $A seconds
  326. ~A~Pscalc~E~Q
  327.  
  328. [ ]    ~APress space to return to main menu~PFMENU~K ~E
  329. .
  330. .REMARK
  331. Calculate average response in seconds / hundredths
  332. .SCRIPT calc
  333. VA=O/Q
  334. VB=A/100
  335. VA=A-B*100
  336. vA10;alVA0$A
  337. VA$B.$A
  338. y
  339. .
  340. .FRAME Gap Filling
  341. .TITLE Fill in the gaps
  342. ~A~PZX1;ZY1;I~E~Q 
  343.     Fill in the missing words.
  344.  
  345.     Yesterday I ~I$a~W10~PVa%s;I~E shopping and ~I$b~W10~PVb%s;I~E a
  346.  
  347.     shirt. The ~I$c~W10~PVc%s;Scheck~E of the shirt was 25 pounds.
  348.  
  349.  
  350.  
  351. [ ]    ~APress space to return to main menu~PFMENU~K ~E
  352. .
  353. .FRAME Choice in line
  354. .TITLE Fill in the gaps
  355. ~A~PZX1;ZY1~E~Q 
  356.     Fill the missing words by selecting from menus
  357.         select menu for line with keys 1,2 and 3.
  358.  
  359. [1]    Yesterday I ~A$a~PZX70;Va@mline 1;y~K1~E shopping
  360.  
  361. [2]       and ~A$b~PZX70;Vb@mline 2;y~K2~E a shirt.
  362.  
  363. [3]    The ~A$c~PZX70;Vc@mline 3;y~K3~E of the shirt was 25 pounds.
  364.  
  365.  
  366. [c]    ~APress 'c' to check answer~PScheck~Kc~E
  367.  
  368. [ ]    ~APress space to return to main menu~PFMENU~K ~E
  369. .
  370. .MENU Line 1
  371. will go
  372. went
  373. go
  374. whent
  375. was
  376. .MENU Line 2
  377. bort
  378. buyed
  379. sold
  380. bought
  381. buy
  382. .MENU Line 3
  383. size
  384. price
  385. wrapping
  386. pay
  387. box
  388. label
  389. .
  390.